home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / SQL and Data Base / Logic Works ERwin 3.5 / data.1 / erwstapp.six < prev    next >
Encoding:
Text File  |  1998-01-28  |  2.1 KB  |  42 lines
  1. /* ------------------------------------------------------------------------
  2. --      ERWSTAPP.SIX                                                                                                             --
  3. --      Copyright (C) Logic Works, Inc. 1994                                                             --
  4. --                                                                                                                                       --
  5. --  Stored function to start a Designer 2000 CDAPI activity                              --
  6. --                                                                                                                                       --
  7. --                                                                                                                                       --
  8. ------------------------------------------------------------------------ */
  9. CREATE OR REPLACE FUNCTION ERWSTAPP(pName CI_APPLICATION_SYSTEMS.NAME%TYPE,
  10.                            pVersion CI_APPLICATION_SYSTEMS.VERSION%TYPE)
  11.         RETURN CI_APPLICATION_SYSTEMS.ID%TYPE
  12.         AS
  13.             TYPE recApp IS RECORD
  14.                 (ID                     CI_APPLICATION_SYSTEMS.ID%TYPE,
  15.                  NAME           CI_APPLICATION_SYSTEMS.NAME%TYPE,
  16.                  VERSION        CI_APPLICATION_SYSTEMS.VERSION%TYPE);
  17.             prApp           recApp;          
  18.             stApp           cioapplication_system.data;
  19.             act_status      varchar2(100);
  20.             act_warnings varchar2(100);
  21.         BEGIN
  22.             IF pVersion = 0 THEN
  23.                 SELECT ID, NAME, VERSION INTO prApp 
  24.                     FROM CI_APPLICATION_SYSTEMS
  25.                     WHERE CI_APPLICATION_SYSTEMS.NAME = UPPER(pName) 
  26.                     and CI_APPLICATION_SYSTEMS.LATEST_VERSION_FLAG='Y';
  27.                     cdapi.initialize(pName);
  28.             ELSE
  29.                 SELECT ID, NAME, VERSION INTO prApp 
  30.                     FROM CI_APPLICATION_SYSTEMS
  31.                     WHERE CI_APPLICATION_SYSTEMS.NAME = UPPER(pName) 
  32.                     and CI_APPLICATION_SYSTEMS.VERSION = pVersion;
  33.                     cdapi.initialize(pName,pVersion);
  34.             END IF;
  35.             dbms_output.put_line('Application found and initialized');
  36.             RETURN prApp.ID;
  37.         EXCEPTION
  38.             WHEN OTHERS THEN
  39.                 RETURN  -1;
  40. END ERWSTAPP;
  41. /
  42.